/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / utils / soundex.elc.z / soundex.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 36 3a 31 32 20 31 | 39 39 38 0a 3b 3b 3b 20 |:56:12 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 75 74 69 6c |s-20.3/l|isp/util|
|000000a0| 73 2f 73 6f 75 6e 64 65 | 78 2e 65 6c 0a 3b 3b 3b |s/sounde|x.el.;;;|
|000000b0| 20 65 6d 61 63 73 20 76 | 65 72 73 69 6f 6e 20 32 | emacs v|ersion 2|
|000000c0| 30 2e 34 20 22 45 6d 65 | 72 61 6c 64 22 20 58 45 |0.4 "Eme|rald" XE|
|000000d0| 6d 61 63 73 20 20 4c 75 | 63 69 64 2e 0a 3b 3b 3b |macs  Lu|cid..;;;|
|000000e0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000f0| 6e 20 32 2e 32 35 20 58 | 45 6d 61 63 73 3b 20 32 |n 2.25 X|Emacs; 2|
|00000100| 32 2d 4d 61 72 2d 39 36 | 2e 0a 3b 3b 3b 20 6f 70 |2-Mar-96|..;;; op|
|00000110| 74 69 6d 69 7a 61 74 69 | 6f 6e 20 69 73 20 6f 6e |timizati|on is on|
|00000120| 2e 0a 3b 3b 3b 20 74 68 | 69 73 20 66 69 6c 65 20 |..;;; th|is file |
|00000130| 75 73 65 73 20 6f 70 63 | 6f 64 65 73 20 77 68 69 |uses opc|odes whi|
|00000140| 63 68 20 64 6f 20 6e 6f | 74 20 65 78 69 73 74 20 |ch do no|t exist |
|00000150| 69 6e 20 45 6d 61 63 73 | 20 31 39 2e 0a 0a 28 69 |in Emacs| 19...(i|
|00000160| 66 20 28 61 6e 64 20 28 | 62 6f 75 6e 64 70 20 27 |f (and (|boundp '|
|00000170| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 0a 09 |emacs-ve|rsion)..|
|00000180| 20 28 6f 72 20 28 61 6e | 64 20 28 62 6f 75 6e 64 | (or (an|d (bound|
|00000190| 70 20 27 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |p 'epoch|::versio|
|000001a0| 6e 29 20 65 70 6f 63 68 | 3a 3a 76 65 72 73 69 6f |n) epoch|::versio|
|000001b0| 6e 29 0a 09 20 20 20 20 | 20 28 73 74 72 69 6e 67 |n)..    | (string|
|000001c0| 2d 6c 65 73 73 70 20 65 | 6d 61 63 73 2d 76 65 72 |-lessp e|macs-ver|
|000001d0| 73 69 6f 6e 20 22 32 30 | 22 29 29 29 0a 20 20 20 |sion "20|"))).   |
|000001e0| 20 28 65 72 72 6f 72 20 | 22 60 73 6f 75 6e 64 65 | (error |"`sounde|
|000001f0| 78 2e 65 6c 27 20 77 61 | 73 20 63 6f 6d 70 69 6c |x.el' wa|s compil|
|00000200| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 20 32 30 22 |ed for E|macs 20"|
|00000210| 29 29 0a 0a 28 6f 72 20 | 28 62 6f 75 6e 64 70 20 |))..(or |(boundp |
|00000220| 27 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 |'current|-load-li|
|00000230| 73 74 29 20 28 73 65 74 | 71 20 63 75 72 72 65 6e |st) (set|q curren|
|00000240| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 6e 69 6c 29 |t-load-l|ist nil)|
|00000250| 29 0a 0a 0a 23 40 35 35 | 20 41 6c 69 73 74 20 6f |)...#@55| Alist o|
|00000260| 66 20 63 68 61 72 73 2d | 74 6f 2d 6b 65 79 2d 63 |f chars-|to-key-c|
|00000270| 6f 64 65 20 66 6f 72 20 | 62 75 69 6c 64 69 6e 67 |ode for |building|
|00000280| 20 53 6f 75 6e 64 65 78 | 20 6b 65 79 73 2e 1f 0a | Soundex| keys...|
|00000290| 28 64 65 66 76 61 72 20 | 73 6f 75 6e 64 65 78 2d |(defvar |soundex-|
|000002a0| 61 6c 69 73 74 20 27 28 | 28 3f 42 20 2e 20 22 31 |alist '(|(?B . "1|
|000002b0| 22 29 20 28 3f 46 20 2e | 20 22 31 22 29 20 28 3f |") (?F .| "1") (?|
|000002c0| 50 20 2e 20 22 31 22 29 | 20 28 3f 56 20 2e 20 22 |P . "1")| (?V . "|
|000002d0| 31 22 29 20 28 3f 43 20 | 2e 20 22 32 22 29 20 28 |1") (?C |. "2") (|
|000002e0| 3f 47 20 2e 20 22 32 22 | 29 20 28 3f 4a 20 2e 20 |?G . "2"|) (?J . |
|000002f0| 22 32 22 29 20 28 3f 4b | 20 2e 20 22 32 22 29 20 |"2") (?K| . "2") |
|00000300| 28 3f 51 20 2e 20 22 32 | 22 29 20 28 3f 53 20 2e |(?Q . "2|") (?S .|
|00000310| 20 22 32 22 29 20 28 3f | 58 20 2e 20 22 32 22 29 | "2") (?|X . "2")|
|00000320| 20 28 3f 5a 20 2e 20 22 | 32 22 29 20 28 3f 44 20 | (?Z . "|2") (?D |
|00000330| 2e 20 22 33 22 29 20 28 | 3f 54 20 2e 20 22 33 22 |. "3") (|?T . "3"|
|00000340| 29 20 28 3f 4c 20 2e 20 | 22 34 22 29 20 28 3f 4d |) (?L . |"4") (?M|
|00000350| 20 2e 20 22 35 22 29 20 | 28 3f 4e 20 2e 20 22 35 | . "5") |(?N . "5|
|00000360| 22 29 20 28 3f 52 20 2e | 20 22 36 22 29 29 20 28 |") (?R .| "6")) (|
|00000370| 23 24 20 2e 20 36 30 31 | 29 29 0a 23 40 31 38 30 |#$ . 601|)).#@180|
|00000380| 20 52 65 74 75 72 6e 20 | 61 20 53 6f 75 6e 64 65 | Return |a Sounde|
|00000390| 78 20 6b 65 79 20 66 6f | 72 20 57 4f 52 44 2e 0a |x key fo|r WORD..|
|000003a0| 49 6d 70 6c 65 6d 65 6e | 74 65 64 20 61 73 20 64 |Implemen|ted as d|
|000003b0| 65 73 63 72 69 62 65 64 | 20 69 6e 3a 0a 4b 6e 75 |escribed| in:.Knu|
|000003c0| 74 68 2c 20 44 6f 6e 61 | 6c 64 20 45 2e 20 22 54 |th, Dona|ld E. "T|
|000003d0| 68 65 20 41 72 74 20 6f | 66 20 43 6f 6d 70 75 74 |he Art o|f Comput|
|000003e0| 65 72 20 50 72 6f 67 72 | 61 6d 6d 69 6e 67 2c 20 |er Progr|amming, |
|000003f0| 56 6f 6c 2e 20 33 3a 20 | 53 6f 72 74 69 6e 67 0a |Vol. 3: |Sorting.|
|00000400| 61 6e 64 20 53 65 61 72 | 63 68 69 6e 67 22 2c 20 |and Sear|ching", |
|00000410| 41 64 64 69 73 6f 6e 2d | 57 65 73 6c 65 79 20 28 |Addison-|Wesley (|
|00000420| 31 39 37 33 29 2c 20 70 | 70 2e 20 33 39 31 2d 33 |1973), p|p. 391-3|
|00000430| 39 32 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |92...(de|falias '|
|00000440| 73 6f 75 6e 64 65 78 20 | 23 5b 28 77 6f 72 64 29 |soundex |#[(word)|
|00000450| 20 22 08 96 89 18 47 19 | 08 c2 48 0b b7 41 1c 08 | "....G.|..H..A..|
|00000460| c2 c5 4f 1e 06 c5 1e 07 | 0c 1e 08 c9 0e 06 47 56 |..O.....|......GV|
|00000470| ab a9 0e 07 09 57 ab a3 | 08 0e 07 48 0b b7 41 14 |.....W..|...H..A.|
|00000480| 0e 07 54 16 07 0e 06 0c | 3f ae 84 0c 0e 08 98 3f |..T.....|?......?|
|00000490| ad 81 0c 50 16 06 0c 16 | 08 aa 50 c9 0e 06 47 56 |...P....|..P...GV|
|000004a0| ab 89 0e 06 ca 50 c2 c9 | 4f aa 82 0e 06 2e 06 87 |.....P..|O.......|
|000004b0| 22 20 5b 77 6f 72 64 20 | 6c 65 6e 67 74 68 20 30 |" [word |length 0|
|000004c0| 20 73 6f 75 6e 64 65 78 | 2d 61 6c 69 73 74 20 63 | soundex|-alist c|
|000004d0| 6f 64 65 20 31 20 6b 65 | 79 20 69 6e 64 65 78 20 |ode 1 ke|y index |
|000004e0| 70 72 65 76 2d 63 6f 64 | 65 20 34 20 22 30 30 30 |prev-cod|e 4 "000|
|000004f0| 22 5d 20 34 20 28 23 24 | 20 2e 20 38 39 37 29 5d |"] 4 (#$| . 897)]|
|00000500| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+